(require (file "table-helper.scm"))
(load "player-commands.scm")
(load "world-init.scm")


(define (interaction-loop)
  (display ">> ")
 (enter-new-command!) 
   (cond ((or (eof-object? (get-command-name)) 
              (eq? (get-command-name) 'quit)) (display "Good Bye"))
        ((not (get 'game-commands (get-command-name) )) 
         (display "Sorry, you cannot ")(display (get-command-name))
         (display " there!") (newline)(interaction-loop))
        (else (begin (apply (get 'game-commands (get-command-name)) 
                            (get-command-arguments) )  
                     (interaction-loop))))
        )

(define (play-game)
  (display "Welcome to LostSUD.")
  (newline)
  (display "Currently you're in: ")
         (display (ask (ask *player* 'place) 'name))
         (newline)
  (interaction-loop))

(play-game)
